home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 May: Tool Chest / Dev.CD May 98 TC.toast / Tool Chest / Development Kits / HyperCard Related / APDA HyperCard Toolkits / Ideas Toolkit 1.0 / Sample Files / Sample Scans / card_19496.txt < prev    next >
Encoding:
Text File  |  1995-02-07  |  5.0 KB  |  228 lines
  1. -- card: 19496 from stack: in
  2. -- bmap block id: 2363
  3. -- flags: 4000
  4. -- background id: 18320
  5. -- name: Welcome
  6.  
  7.  
  8. -- part 23 (button)
  9. -- low flags: 80
  10. -- high flags: 8003
  11. -- rect: left=65 top=11 right=33 bottom=138
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Magic
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set hilite of me to true
  23.   lock screen
  24.   go to card "Portrait"
  25.   put not visible of button "Scan 2" into showHide
  26.   set visible of button "Scan 2" to showHide
  27.   set visible of button "Scan 8" to showHide
  28.   set visible of button "Scan 32" to showHide
  29.   go to card "Landscape"
  30.   set visible of button "Scan 2" to showHide
  31.   set visible of button "Scan 8" to showHide
  32.   set visible of button "Scan 32" to showHide
  33.   go to first card
  34.   set hilite of me to false
  35.   set visible of me to showHide
  36.   unlock screen
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 24 (button)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=465 top=0 right=41 bottom=512
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 2478 / 2478
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: 
  53.  
  54.  
  55. -- part 25 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=1 top=0 right=44 bottom=52
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 1011 / 1011
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Home
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   visual effect iris close
  70.   go home
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 33 (field)
  76. -- low flags: 81
  77. -- high flags: 2004
  78. -- rect: left=62 top=14 right=272 bottom=450
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 2
  83. -- text size: 14
  84. -- style flags: 0
  85. -- line height: 18
  86. -- part name: About
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   toggleAboutBox
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 20 (button)
  95. -- low flags: 80
  96. -- high flags: 8000
  97. -- rect: left=65 top=219 right=268 bottom=116
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 16532 / 16532
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Install
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   lock screen
  109.   set cursor to watch
  110.   show button "HyperScan"
  111.   select button "HyperScan"
  112.   doMenu "Copy Button"
  113.   hide button "HyperScan"
  114.   hide card field "About"
  115.   hide button "Install"
  116.   go home
  117.   repeat with i = 1 to the number of buttons
  118.     if the short name of button i is "HyperScan" then
  119.       go back
  120.       choose browse tool
  121.       answer "HyperScan button was already installed."
  122.       unlock screen with iris close
  123.       exit mouseUp
  124.     end if
  125.   end repeat
  126.   doMenu "Paste Button"
  127.   choose browse tool
  128.   set cursor to hand
  129.   unlock screen
  130.   get the mouseClick -- flush accidental double-click
  131.   put "Drag button to desired location, then click..."
  132.   repeat until the mouseClick
  133.     set loc of button "HyperScan" to the mouseLoc
  134.   end repeat
  135.   put empty into msg
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 22 (button)
  141. -- low flags: 80
  142. -- high flags: 8000
  143. -- rect: left=390 top=221 right=266 bottom=444
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 16532 / 16532
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: HyperScan
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   visual effect zoom open
  155.   go to stack "HyperScan"
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 34 (field)
  161. -- low flags: 81
  162. -- high flags: 2004
  163. -- rect: left=146 top=97 right=272 bottom=366
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 2
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 15
  171. -- part name: Directions 1
  172.  
  173.  
  174. -- part 35 (button)
  175. -- low flags: 80
  176. -- high flags: 8003
  177. -- rect: left=156 top=239 right=261 bottom=213
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Exit
  186.  
  187.  
  188. -- part 53 (button)
  189. -- low flags: 00
  190. -- high flags: 0000
  191. -- rect: left=0 top=255 right=342 bottom=512
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: 
  200. ----- HyperTalk script -----
  201. on mouseup
  202.   visual wipe left
  203.   go next cd
  204. end mouseup
  205.  
  206.  
  207. -- part contents for card part 33
  208. ----- text -----
  209.  
  210. HyperScan version 1.0
  211. Copyright 1988 Apple Computer Inc.
  212.  
  213. written by Bill Atkinson, with help from 
  214.  Sioux Lacy, Jim Palmer, Eric Quackenbush,
  215. David Leffler, Robin Shank, James Redfern, 
  216. Susan Kare, Bruce Gee and Tad Browne.
  217.  
  218. This stack lets you use the Apple Scanner
  219. to bring images into HyperCard.
  220.  
  221. Happy scans to you...
  222.  
  223. -- part contents for card part 34
  224. ----- text -----
  225. To use HyperScan, you first choose a portrait or landscape orientation.  Your choice depends on the sample you want to scan.
  226.  
  227. ‚Ä¢  For now, click the Portrait 
  228.     icon to go to the Portrait card.